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SEITC 1 

1 * GENERAL AUTOMATION, INC, ALL RIGHTS RESERVED 

2 ***************** ************* Or******************* 

3 * 

4 * PROGRAM NAME FpH-i.6 

5 * 

6 * MODEL NUMBER 8F01& 

7 * 

a * purpose foreran phase-16 

9 * 

10 * PROGRAMMER DICK WALLMANN 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCO BY REASON FOR CHANGE 

15 * ~* ----» -■-..!-_•--«.---------.--- 

17 * 01 11/16/70 NONE RPH INITIAL RELEASE 

18 * 

j_9 ********** ******************** ******************** 

20 ************************************************** 

21 HQNG MRX FORTRAN ** SCAM ** PHASE FR16 

22 ************************************************** 

23 *STATUS, VERSION 1, MODIFICATION > 

24 * 

25 *FUNCTI0N/0PERATI0N- 

26 * * CONVERTS ALL READ, FIND, WRJTE, IF, GO TO, 

27 * MALL, STATEMENT FUNCTION, AND ARITHMETIC 

28 * STATEMENTS INTO MODIFIED POLISH NOTATION, 

29 * ESTABLISHES THE ORDER OF ARjTHMETlC OPERA- 
. 30 * TIONAL PERFORMANCE. 

31 * * SETS UP THE ARGUMENTS FOR SUBROUTINE CALLS 

r 32 * TO BE GENERATED. 

33 * 

34 *ENTRY POIMTS- 

35 * START-PHASE 16 IS MEAD INTO CORE BY PHASE 15: 

36 * TRANSFER TO ROLRX, IXfcCUTlON IS BEGUN 

37 * AT LOCATION START, 

39 *INPUT~THE STATEMENT SPRING MAY BE CONSIDERED 

40 * INPUT 

42 *OUTPUT,THE STATEMENT STRING ANU THE SYMBOL TABLE 

43 * AS ALTERED BY T HE PHASE MaY BE CONSIDERED 

44 * OUTPUT 

45 * 

46 *EXTERMAL REFERENCES-** 1 !/ A 

47 * 

48 *EXITS- 

49 * NORMAL- 

50 * AT LOCATION GOSS TRANSFER JS M A DE TO THE 

51 * INTERPHASE ROLLER ROUTjNfc WHICH LOADS 

52 * PHASE 17, 

53 * ERRQR- 

54 * THE FLOW OF COMPILER PROCESSING IS NOT 

55 * INTERRUPTED WHEN AN ERROK JS ENCOUNTERED. 

56 * AN ERROR STMNT REPLACES THE FAULTY STMNT 

57 * ON THE STRING AMD THE STUNT SCANNING 

58 * PROCESS CONTINUES, AN EXCEPTION OCCURS 

5 g * W HEM AN OVERLAP ERROR JS DETECTED- COMPlLr 
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* 



AT 10 
ED F 
JATE 

PRI'J 
fHE 



N IS THEN ABORTED ANU QQNTRDL IS PASS* 
ROM PHASE TO PHASE # tAQH PHASE IMMED- 
LY EXITING ?0 THE NEXT UNTIL PHASE 21 
TS THE OVERLAP ERRQR MESSAGE, 
ERROR DETECTED BY PHASE 16 IS NO. 64 



♦TABLES/WORK AREAS- 



STRING 

SYMBOL 
FORTRAN 

FORCING 
WORK 

WORD 
PN""-OUT 
PDUPUS 



* 
* 

* 

* 
* 
* 
* 
* 

*A T TRIBUTES 

* 

• N'OTES- 

* 
* 

# 
* 



TABLE 

communications area 

table-2 word entries 

1-cqntains rt and l> t forcing values: 
for each operator 

2-ptr to spring of ups used by interp 
put buffer f or modified expression 
h doljn list for storing a r gs of call 



■N/i 



THE SWI 

ZERO. T 

SWITCH 

• SWI 

*SW2 

*SW3 

********* 

ABS 



TCHES USED IN PHASE 16 FOLLOW. IF NON- 
HE SWITCH IS TRANSPEK=T. IF ZERO/ THE' 

IS NORMALS) • 

-T=GENERATE TEMPORARIES AS REQUIRED 
-T=FAC IN OUTPUT EXPRESSION 
-T-FAC ON S'RING 

♦ ♦••♦a*******************************'** 



* 

* 

* 

MEMRY 

PHSIZ 

OVERL 

FCOM 

PHMTB 

ROLRX 



■£&7= C<t>fc(=r 

SYSTEM AND FORTRAN EQUATE? 



sors 

EOFS 
SOFST 
SOFNlS 
SOFXT 

SOFGT 
EOFST 
COMON 
CSIZE 

ERROR 
FNAME 

SORF 
CCWD 

* 
* 
* 

* 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ORG 
OSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 

ass 

BSS 
BSS 
BSS 

BSS 
BSS 



W=f- 



<i*320 
HgMRY-PHSlZ 

OVERL-22 
FCOM-56 

PHNTB-50 



MAXIMUM CORE SIZE 
MAXIMUM PHASE SIZE 
PHASES 2-29 START 
FOKTRAN COMM, TABLE. 
PHASE TABLE 
INTERPHASE CALL 



FORTRAN SOMMUNICAIION AREA 



FCOM 



x 
a. 



1 
1 



STAR 

END 

STAR 

STAR 

STAR 

STAR 

END 

NEXT 

SlZ.l 

OVER 

PROS 

NA 

SUBR 

COfjT 

BI 

BI 

OI 
BI 
BI 



T OF STRING 

OF STRING 

T OF SYMbOL TABLE 

T OF NON-STATEMENT numbers 

t of subscript temporaries 
t of generated temporaries 

OF SYMBOL TABLE 

AVAILABLE COMMON 

OF COMMUN 
LAP ERROW 
RAM 
ME 

OUTINE n OR FUNCTION 
ROL CARD WORD 



T 15 TRANSFER TRACE 

T 14 ARITHMETIC TRACE 

T 13 EXTfcNDED PRECISION 

r 12 LIST SYMBOL TABLE 

T 11 LIST SUBPROGRAM NAMES 



SEitE 3 

12 Q * BH 1,: LIS) SOURCE PROGRAM 

12 1 * BIT 9 ONE wgRD INTEGERS 

122 IOCS BSS i IOCS CONTROL CARD WORD 

124 I SEE PHASE ONE FOR BIT PATTERNS 

125 * 

126 DFCNT BSS 1 DEFINE FILE COUNT 

127 LCUMN BSS 2 SIZE OF JNSKfcL COMMON 

128 ICCER BSS 2 IOCS CONTROL CARD ERROR 

129 BSS 2 SYSTEM LQAPEK USE 

130 # END OF FORTRAN COMM AREA 

131 * 

132 * 

133 ORG OVERL 

135 START LD ERROR CHECK FOR OVERLAP 

136 BSC L GQ8S#Z GET NEXT PHASE IF OVERLAP 

138 * INITIALIZE PHASE 

139 * 

-40 LDX II 3QFS XRl POINTS TO STRING START 

St41 LD EQFST INITIALIZE START OF 

142 STO SQFGT GENERATED TEMPORARIES 

144 R3T LD EQFST RESET GT ENTRIES 

145 SfO ROFGT 

147 * CMfzCK FQR READ, FIND, WRITE, I FS. 

148 , GO TO, AS?, AND ARITH STM^TS 

150 SE r UP LD 1 STRING ID WORD 

151 SRA U GET ID TYPE 

152 STO XTMP1 SAVE 

i53 LDX 3 TYTBE-TYT8 1 XRJ=TYPE TABLE SIZE 

154 LD XTMP1 GET ID 

15"5 3 L3 TYTB-1 CHECK IF TABLE TYPE 

156 BSC L SCANI, - TO SCANl |F ONE TBL TYPES 

157 ilDX 3 -1 CONTINUb 

158 ?!DX *-7 CHECK 
'59 * 

VL60 ^D XTMP1 GET 10 

16 1 S ENST CHECK FUR END STATEMENT 

16 2 BSC L BEXTS,Z GE? NfeXI STMNT IF NOT EW 

164 * exit to pha*e i? 

166 GOBS BSI L RQLRX XFER TO FORTRAN ROLLER 

167 D C 17 NEXT PHASE NUMBER 

169 * MOVE TO NEXT STATEMENT 

170 NEXTS LD 1 GET 

171 AND SQ7FC STATEMENT 

172 SRA 2 WORD 

173 STO * 1 COUNT 

174 HDX LI *«* AND MQVfc STRING POINTER 

l?l * LD XTMP1 IF LAST STATEMENT 

177 S ASF WAS ASF 

178 BSC L RST, - THEN REINITIALIZE FOR SCAN 
l 7 q tlDX SETUP OTHERWISE GO CK NEXT TYPE 



SEiTE 



HI I TABLE Or TYPES TO BE SCANNED 

182 * 

1A 7 tvtr Dr /OO ARITHMETIC 

184 Isr DC /1A ARITH STATEMENT FUNCTION 

185 DC /Q6 CALL 
136 DC /OE 20 TO 

187 DC /OF IF 

188 DC /ID FIND 

189 DC /ll WRITE 

190 TYTBE DC /l2 READ 

191 * 

192 * CONSTANTS 

193 XTHPl DC *** TEMPORARY 
1Q4 fmST pr /Q2 END ID 

195 S07FC DC /Q7FC MASK TO GET STMNT NORM 

196 ROFGT DC *-* 

198 * INITIALIZE t°« SCAN 

199 * 



00 



SCANI StX Ll IDSV1 SAVE STRING PTR 



201 LD 1 1° W0RD 

202 osc P SKIP IF NO STMNT NUMBER 

203 HDX 1 1 MOVE STMNT PTR 

204 MDX 1 2 M* STMNT NO 

205 UU Ll SMDOP SAVE STMNT PTR 

P„6 SLA 16 S E T CARKY ON IF STMNT NO 

?n7 LD I IDSV1 GET ID WORD AGAIN 

208 BSC C SKIP }P NO STMNT NO 

209 3 TS4 

210 ,.ND S 7FC GET STATEMENT 

2ii SRA 2 w0RD coUNT AND 

212 SfO STNOM SAVE 

213 STO INORM IMITTi p^| 

214 LDX L3 P^T INITIALIZE 

215 3TX 3 OLJTPT EXPRESSION OUTPUT POINTER 
?16 LDX L3 POL INITIALiZI 

2i7 3TX 3 PUSHD PUSH DOWN LIST POINTER 

218 SLA 16 NORMALIZE 

Jl9 STO L SW3 FAC «N STRING SWITCH 

"220 * 

221 LD ROFGT 

222 SfO L XQFGT RESET GTS 

224 1 CHECK FQR NURM LESS THAN FOUR 

225 * 

226 CKNM LDX L3 *•* GET MODIFIED NORM 

227 STNOM FQU CKNM 1 DYN A MJC STATEMENT NORM 

228 rlDX 3 -3 DECREMENT By 3 

229 'IDX ADV GO ADVANCE STMNT PTR IF NO 

230 MDX PTPOL DONE. GU RECALCULATE NORM 

231 * 

232 ADV MDX 1 1 ADVANCE STATEMENT POINTER 

233 * 

I34 na m e LD 1 ARE BOTH STRING SYMBOLS 

235 OR 1 -2 OPERATORS 

236 BSC L ADV, Z GO ADV STRING PTR IF NOT 

237 * 

238 FORCE LD 1 RIGHT OPERATOR 

239 STO POP 1 



SE;TC 5 

240 LD 1 -2 LEFT OPERATOR 

241 STO LOP 1 

242 uDX L3 FTAB XR3 PTS TO FORCING TABLE'. 

243 ROP LD L3 *.# GET ENTNY ROP 

244 AND S00FF RIGHT FORCING VALUE 

245 SfO XTE1 SAVE RV 

246 LOP LD L3 *-• GET ENTKY LOP 

247 SRA 8 LEFT FONCJNG VALUE 

248 S XTE1 IS KV Ql OR * TO LV 

249 BSC L ADV,Z- GO ADV STMNT PTR IF NOT 

250 * 

251 MDX 13 LOP 1 LEFT OP FORCING TBL ENTRY 

252 LD 3 1 GET INTERPRETER STRING PTR 

ftC'T O W f\ *r I 

254 LDX L2 *«* XR2 PTS TO STRING ADDRESS 

255 MDX RETRR 1 

256 * 

257 * SELECT STRING OF OPERATIONS 

258 * r O PERFOKM 

259 * 

, -60 RETRR MDX 2 2 (NEXT OK PTR IN LIST) 

\~ 61 LD 2 1 GET SUBSTR ADDR OR ARG 

262 BSC 12 8R TO SELECTED STRING OPS 

263 * 

264 * CONSTANTS 

265 XTEl DC TEMPORARY 

266 XRR2 EQU XTEl 

267 S00FF DC /OOFF RH SIEVE 

268 PUSHD DC *«* S ^CK PUINT E R 

269 OUTpT DC *-* EXPRESSION OUTPUT POINTER 

270 ERlD DC /A008 ERROR 10 

271 FI-'E DC 5 WOULD YOU BELIEVE A 5 

272 ERNO DC 64 ERROR NUMBER 

273 INORM DC *«* NORM 5AVE 

274 TS4 DC 4 AN EVEN NUMBER 

275 * 

277 OVCHK LD PUSHD CHECK FOR OVERLAP 

| 78 S OUTPT IN OUTPUT AREA 

-79 BSC L RETRN,-Z FINjSM OP LIST IF OK 

281 * STATEMENT TOO LONG TO BE SCANNED 

| 82 * PU T ERROR ON STRING 

?R3 * 

284 BADST LDX II IDSVl STRJNG ID POINTER 

P85 LD 1 STATEMENT ID 

286 BSC L * 3,E BR IF SlMNT IS NUMBERED 

287 LD CRID 

2 8 8 3?0 1 PUT ERROR ID ON STRING 

289 MDX * 6 

290 LD ERID 

2Qi A FIVE ACCOUNT FOR STMNT NO 

292 fJTO 1 PUT ERROR ID ON STRING 

293 MDX 1 1 

2 Q4 M D X L INORM, 1 ADJUST NORM 

295 LD ERNO 

29 6 SfO 1 1 PUT ERROR NO ON STRING 

297 MDX 1 1 XR1 PTS TO NEXT AVAIL LOG 

298 * 

29Q * CLOSE UP THE STRING 



SEITE 6 

300 uDX 12 IDSV1 STRING ID WORD 

30 1 m D x 12 INORM POINT TU NEXT STATEMENT 

302 STX 2 XRR2 SAVE POINTER 

303 LD L EQFS SET 

304 3 XRR2 XR3 

•1*5 STO * 1 TO NUMBER 

306 uDX 13 *** OF WORDS TO BE MOVED 

307 MDX 3 1 THAT pOtS IT 

308 LD 2 LOOP 

309 STO 1 1 TO 

310 MDX 1 1 CLOSE 

311 MDX 2 1 THE 

312 MDX 3 »1 STRING 

313 MDX *.6 CONTINUE 

314 SfX LI EQFS RESET END OF STRING PTR 

315 LDX II IOSV1 OLD STRING ID AGAIN 

316 MDX QLZQ 0° PROCESS NEXT STATEMENT 

317 * 

319 PTPOL MDX L INORM, -2 CALCULAJ.E STATEMENT NORM 

til * LD CPNT DETERMINE IF 

322 S OUTPT STRING MOVEMENT 

323 STO CNT IS NECESSARY 

324 A INORM 

325 SfO AHOUT 

326 BSC L OPEN* Z OPEN 

327 BSC L CLOSE, Z CLOSE 

329 * PLACE POLISH TABLE ON STRINQ; 

331 MOVE LDX L2 PtfT XR2 PTS T OUTPUT EXPRESS 

332 ' ' LDX II SMDQP STRING KEPLACE PTR 1 

333 LDX L3 *«* COUNT 

334 CNT EQU *«1 

335 LD 2 LOOP TO PLACE 
316 STO 1 -1 OUTPUT BUFFER 

337 M D X 1 1 ON STRING 

338 MDX 2 1 REPLACING 



39 MDX 3 1 



FAC 



"340 MDX *-6 CONTINUt 

341 LDX LI *»* RESET **1 T ° ST ^ J ID 

342 IDSV1 EQU *-l UD *AVE) 

344 QLZQ BSC L NgXTS GO PROCtSS NEXT 3T A T£MEMT 

345 * 

346 AMOUT DC *«* AMOUNT 10 MQVE 

347 CPNT DC PMT ADCQN 

348 * 

349 * OPEN STRING 

350 * 

351 OPEN LD L EQFST FIRST CHECK 

351 OPtN LD U e J fs T() sE£ - F STRINQ CAN 

353 A AHOUT BE OPENED 

354 BSC L UVERS, Z IF OVERLAP POSSIBLE GO OUT 

355 LDX il EQFS XRl WJLL POINT TO OLD EOFS 

356 LD L EOFS CALCULA1E 

357 3 SNDOP NUMBfcR OF 

358 ST0 * 1 WURDS TO BE MOVED 

359 uDX L3 *,* XR3CN0 UF WDS 



SEITE 



360 LD L tors CALCULATE 

361 S AHOUT NEW 

362 SfO L EQFS EOFS 

363 LDX 12 EQFS XR2 POINTS TO NEW EQFS 

364 LD 1 LOOP 

365 SfO 2 C TO 

366 HDX 1 ~1 OPEN 

367 ;IDX 2 " l -i«f M r 

368 MDX 3 "1 STRING 

369 HDX --6 CONTINUt 

370 * , 

371 * CORRECT NORM 

372 * 

373 CRTNM LD I IDSV1 STRING JD 

375 S R AHOUT ADJUST *Y AMOUT 

376 LiLT 2 

377 SfO 1 IDSV1 RESfeT 

378 HDX HOVE 

, 180 * CL'JSE THE SIRING 

^-381 * 

382 CLOSE LDX L2 *•«■* DO SOME 

383 SNOOP F-OU **l ARITHMETIC 

384 LD S'JDOP AND 

385 A AHOUT SO 

386 SfO * 1 FORTH 

387 LDX LI *** TO SfcT UP 

388 LD L EQFS COUNTS 

389 S *«r4 AND 

390 SfO * 1 POINIERS 

391 LDX L3 *.* FOR CLOSE 

392 LD 11 EOOP 

393 StO 2 1 TO 

394 MDX 1 1 CLOSE 

395 HDX 2 1 THE 

39ft HDX 3 -1 STRING 

397 .| DX **6 CONTINUt 

398 SfX L2 EOFS RESET EUFS 

399 HDX CRTNM 

Moo * 

402 OVERS HDX L ERROR, 1 SET OVEKLAP ERROR INDICTR 

403 BSC L GQSS EXIT TO NEXT PHASE 

404 * 

405 * 

406 * 

407 ************************************************** 

408 * 
40 9 * 

410 * 

411 ************************************************** 

412 * 

413 « PLACE OPERAND UN STRING AT XR1-1 

415 PLACE 3f0 1 -% STORE OK QN STRING 

416 3 FaCNY 

417 BSC L RETRN,Z RETURN IF OPERAND NOT FAC 

418 3TX LO SW3 SET FAC ON STRING SWITCH 

419 SfX LI FACSV 



HTERPRETfcR 



MDX LI *«* MOVE PTK BY OPERAND 



SEIT^ 8 

420 MDX' L FACSV.-I SET STRING ADDRESS QF FAC 

421 :IDX RETRN RETURN 

422 * 

423 FACNY DC /8000 FAC 

425 * MOVE THE STKING POINTER 

426 * 

427 MVPT STO * X 
428 
429 MDX RETRN RETURN 

J3J * INSERT STQP CODE ON PDL 

432 * 

433 STOPI MDX I PjSHD,-! PUSH DOWN 

434 SLA 16 STOP 

435 STO I PJSHD ON STACK 

437 BSC L 2 OVCHK GO CHECK FOR OVERLAP 

439 * DELETE STOP CODE FROM PDL 

441 STORD HDX L PUSHD,! POP UP STACK 

4*43 M§x ? RETRN GO PROCESS REST OF STMNT 

444 # 

445 * EMPTY PDL TO OUTPUT BUFFER 

44 6 * UNTIL STOP COPE IS ENCOUNTERED 

447 * 

448 PTO HDX 2 "1 

449 uD I PUSHD HEAD 



450 BSC L RETRN, - RETURN IF STOP OUT 

Hi STO I OUTPT EMPTY TO EXPRESSION BUFFER 

452 MDX L PUSHD, 1 POP UP STACK 

453 MDX L OUTPT, 1 MOVE QUlPT PTR 

454 MDX PTO I CONTINUE 

455 * 

456 * DEuETE NUMBtR OF SYMBOLS 

457 <, SPECIFIED BY OPERAND FROM 

458 * THE STRING 
59 * 

*460 
461 SfX 1*1 

463 MDX U3 *"H MODIFY MY NUMBER .TO DELETE 

464 STX 3 DEND 1 

465 DELOP LD 1 L00p 

466 STO 3 TO 

467 MDX 1 I CLOSE 
468 



DEuET SfO * 4 NUMBER TO DELETEC -OFFSET) 
III L3 ***l GET STR.i.NO PTR IN X R3 



DX 3 1 STATEMENT 



469 BSC L DELOP, Z CONTINUE TO END OF STMNT 

470 LD L FACSV 

4 ?1 S UELET 3 WAS FAC ON STRING MOVED 

472 BSC L DEND* I TO: DEND IF NOT 

473 LD L FACSV 

474 A HELET 5 ADJUST ADDRESS OF 

475 STO L TACSV FaC ON STRING 

476 DEND LDX Ll *** RESET XNl TO STRING PTR 

477 LD L STNOM 

478 A DELOP-2 CORRECT SPECIAL 

479 STO L STNOM STRlNU NORM 



SEiTE 9 



480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 

502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 

y*2o 

521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 



* 
• 
PUSH 



PUSH! 



PUSH2 



PUSH3 



MDX 



STO 

tpx 

STO 
MDX 

LD 

sfo 

LD 

MDX 

SfO 

BSC 
MDX 
MDX 
HDX 
LD 

sfo 

ilDX 
B|I 
STO 
MDX 
HDX 



* 

COMGT DC 
SLA 
STO 

LD 

STO 

xofgt L'QU 
MDX 
uD 

C 

BSC 
HDX 

LD 

o 

SRT 
D 

OR 
BSC 



retrn 

* 
* 

OUTFC 

OUT 



BSC 



LDX 
HDX 
LDX 
STX 
LDX 
3TX 
STX 
STO 



I 

L 



L 
L 
L 
L 



I 



PLACE STRJNU ELEMENTS SPECIFIE 

RETRN RETURN 10 PROCESSING ST'iNT 
BY SUBSTRING QNTO PDL 



* 1 

13 *«* 

PUSH1 1 
L PUSH1 1,: 

L *«* 

* 1 

LI *m + 

L PUSHD,-i 
I PUSHD 
L C0NS3 
L PUSH3, - 
3 -1 

PUSH1-2 

RETRN 
L C0NS5 
I OUTPT 
L OUTPT, 1 

COMGT 

OUTPT 

OUTPT, 1 

PUSH2 



XR3 s LtNQTH OF SUBSTRING 



NEXT SUbSTRjNG ARGUMENT 

GET DISPLACED STRING ENTRY 

PUSH DOWN 

PUT ON STACK 

WAS IT MC 

GO TO PUSH3 IF FAC ON STAC 

DECREMENT COUNTER 

CONTINUfc PUSH 

RETURN WHEN DONE 

s OPERATOR 

PUT = IN gUTPUT 

INCREMENT OUTPUT POINTER, 

GET COMPUTED GT 

STORE IN QUTPUT BUFFER 

INCREMENT OUTPUT POINTER 

GT REPLACES FAC ON STACK 



16 

SW3 

C0NS4 

*«* 

*«*! 

XQFGT, -3 
XQFGT 

EorsT 

* 2»- 

EQFST,-3 

SQFST 

XQFGT 

16 

C0NS2 
CQNS3 
COMGT 



COMPUTE GT £OR FAC 
RETURN ADDRESS 



NORMALISE FAC ON STRING SW 

GT ID (/0Q08) 

STORE Q'r JD IN SYMBOL TABL 

SYMBOL ^BL GT PTR 

EXTEND «Y 3 



UPDATE tND OF SYMBOL TABLE 

COMPUTE 
SYMBOL 
TABLE 

ENTRY NUMBER 
RETURN TO CALLER 



L RETRR CENTRAL RETURN BRANCH 

BULK nr INTERPRtTER WORK DONE HERE 
OH TC- OUTPUT GTS AS REQUIRED 
OU" - DO NUT OUTPUT GTS 



1 
OUT 1 

c 

SHI 



SW2 
SWCAL 

* i 



SET SW 1 TO OUTPUT GTS 

DO NOT UUTPUT GTS 

SET SW1 ON/QFT 

NORMALISE 

SW2* ►''AC IN OUTPUT 
SWCAL- CALL OP DETECTED 
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540 




LDX 


13 *«** 


541 




sfo 


OtfTl 1 


542 




MDX 


L OJT1 1,1 


543 


OUTl 


LD 


L *** 


544 




sfo 


* 4 


545 




LD 


swi 


546 




EoR 


OUTFC 


547 




SLA 


16 


54a 


* 






549 




LD 


LI *«* 


550 


* 






551 




sto 


I OUTPT 


552 




DSC 


L MQREV 2,C 


553 




O 


CQNS3 


554 




BSC 


L MQREV 2,2 


555 




STX 


SW2 


556 




MDX 


L 0UTPT,-1 


557 




LD 


I OUTPT 


558 




BSC 


L NQREV 2,~ 


559 




MDX 


L 0JTPT,-1 


(760 
561 




LD 


I OijTPT 




S 


CALOP 


562 




BSC 


m 


563 




sfx 


swcal 


564 






SREVl 


565 




BSC 


L NOREV, Z 


566 




S 


SREV2 


567 




BSC 


L NQREV, -Z 


568 




A 


SREV3 


569 




sfo 


I oyTPT 


570 


noRev 


MDX 


L OUTPT, 1 


571 




MDX 


L OUTPT, 1 


572 




MDX 


3 -1 


573 




MDX 


0JT1-2 


574 




LD 


SHI 


575 




BSC 


L OVCHK, - 


576 




LD 


SM3 


577 




BSC 


L OVCHK, - 


578 




ld 


swcal 


^79 
H380 




BSC 
BSl 


L L0P2' " 
COMGT 


581 




STO 


I OUTPT 


582 




MDX 


L OUTPT, 1 


583 




MDX 


L X0FGT,3 


584 




MDX 


LQP3 


585 


10^2 


LD 


SH2 


586 




BSC 


L OVCHK, Z 


587 


L0P3 


MDX 


L OUTPT, 2 


588 




LDX 


13 OUTPT 


589 


LOP1 


LD 


3 -3 


590 




MDX 


3 -1. 


591 




sto 


3 


592 




BsC 


L LOP1* Z 


593 




BSI 


COMGT 


594 




sfo 


3 -1: 


595 




STO 


L *<•* 


596 


FACSV EQU 


*•! 


597 




LD 


CQNS5 


598 




sfo 


3 "2 


. 599 




BSC 


L OVCHK 



XR3 SUBSTRING LENGTH 
STOHE AUDH IN SUBSTR PTR. 
INCREMENT SUBSTR PTR BY 1 
GET NEXT ITEM ON SUBSTRING 
STOHE 
SET CARRY 
ON JF*SW1 N 
OFF Jf SWI T 
SELECT lT6M ON STRING 

DISPLACED FROM STRING PTR 
USUALLY ROP BY SSTR AR 
AND OUTPUT IT 

BR IF »Wi NOT SET FOR GTS 

WAS FAU OUTPUT 

8R IF NO 

YES" SfeT FAC O/P SW 

DECREMENT 0/P PTR 

GET NEXT LAST O/P WORD 

BRANCH IF OPERATOR 

DECREMtNT O/P PTR AGAIN 
GET 2ND~TQ LAST O/P WORD 
IS IT CALL, OPERATOR 
SKIP JF'NQT 
SET CALL OP SWITCH 
IS 
OPERATOR QNE OF 

- ' / ** 
NO* 00 TO NOREV 
YES* GET REVERSE OP 

AND RtP^ACE FAC IN O/P 
INCREMENT OUTPUT POINTER 
INCREMENT OUTPUT POINTER 
DECREMENT SUBSTRING COUNTE 
GO OUTPUT SOME MORE 
DONE WITH SUBSTR 
TO QVCHR JF FAC NOT ON STR 
IS FAC UN STRING 
NO- GO CHECK FOR OVERLAP 
CALL 0P"D6TECTED 
BR IF NUT 
YES* ENTER GT IN SYMBL TBL 

AND PUT GT IN O/P BUFFER 
INCREMENT O/P PTR 
NQVE iNIEHNAt- XOFGT BACK 
BRANCH 

FAC IN O/P EXPRESSION 
YES- 60' CHECK FOR OVERLAP 
MOVE OUTPUT EXPRESSION 

UP TWO PLACES UNTIL AN 
OPERATOR IS ENCOUNTERE 
MUV6 OPERATOR AND 
LEAVE PTR AT LAST 
MOVE 
COMPUTE GT AND ENTER IN ST 
STORE GT JN O/P AT PTR»1: 
SAVE 
GT STRING ADDRESS 

OPERATOR 
PUT OP IN O/P AT PTR-2; 
GO CHECK FOR OVERLAP 
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600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
616 
619 

S*21 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
39 

S>40 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
65^ 



SW1 DC 
SW2 DC 
SW3 DC 
SWCAL DC 
CAUOP DC 
SREVl D(3 
SREV2 DC 
SREV3 DC 
C0NS2 DC 
CONS 3 DC 
C0NS4 DC 
C0NS5 DC 
XRl DC 
SEND DC 



* 
ZEND 



MDX 
SfX 
LD 

b 

BSC 

LDX 

BSC 



* 



SUBSC MDX 
LD 

Ci 

BSC 
MDX 

MDX 



* 
* 
PfjT 

* 

* 
* 

* 
* 
• 
* 
* 

PDL 

* 

* 

* 

* 

FTAB 



BSS 



DC 



DC 
DC 
DC 

DC 
DC 



u 







/2E 

/06-/2E 

/0A-/06 

/QA /44-/ 

o 

/8000 

/0008 

/QE 



/24 



1 
1 

L 
U 
II 



SOME CONSTANTS 

generatb temporaries 
fac in Output expression! 
fac on string 

CAUL SWITCH 
CALL QPtRATQR 
SUBTRACT OPERATOR 
EXPONENTIATION OPERATOR 
06 CONST TO GET REVQP 
NOT TO BE 
FAC » ALSO 
GT ID 

OPERATOR 
XRl SAVb 
S 



CONFUSED WITH 
ST POINTER 9AS 



END OF STRING OPERATIONS 



'1 

XRl 

XRl 

SNOOP 

* 2,- 

SNDOP 

CKNH 



DECREMENT 
AND SAVb 
CHECK P1R 
AGAINST 
LEAVE PTR 



STRING POINTER: 



INITIAL 
IF GREATER 



RESET INITIAL STRING 
GO CHECK FOR NORM LT 

OUTPUT SUBSCRIPT ELEMENTS 



PTR 
4 



2 ~3 

1 
SEND 

L RETRR,Z 

2 7 
RETRN 



POINT BACK TO OUTFC 

STRING KTR 

SUBSCRIPT RT PARENTHESIS 

RETURN IF NOT 

READY FUR MVPT 

RETURN 



POLISH OUTPUT * 
I " * 



401 * 

* 

* I * 

* I * 

* I * 

* V * 

* * 

* A * 

* 1 * 

* I * 

* I * 
* i'JSH DOWN LJST * 



FORCING TABLE 

/3C3C SEMI-COLON 03 TERMINATOR 

BADST 

/J l3 2 Q2 RIGHT PARENTHESIS 

BADST 

/QAQA 04 ADD 
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660 DC CD! 

661 DC 



662 DC CD1 



673 DC 



S 



/QAOA - 06 SUBTRACT 



663 DC 

664 DC CD1 

665 DC 

666 DC GDI 

667 DC 



/Q5G5 / 08 PIVIDE 



668 DC c 01 



/05Q4 ** OA EXPONENTIATE 

CQ1 

/ 505 * OC MULTIPLY 



669 

670 DC COl 

671 DC 

672 DC CQ2 



DC /3B3C OE ASSIGN 



310 1 XO LEFT PARENTHESIS 



/3130 * 12 COMMA 

674 DC C D3 

675 DC /3101 IF I 4 l F 

676 DC CD8 Trt 

677 DC /3101 GOT t 6 60 TO 

679 DC /2A01 18 LITERAL SUBSCRIPT 



80 DC C06 

81 DC 



682 DC CD6 

683 DC 



o y y 

/2A01 1 1A 1-DXM SUBSCRIPT 



/2A01 2 XC 2-DIM SUBSCRIPT 
685 DC /2AQ1 3 XE 3-DlM SUBSCRIPT 
687 DC /0501 U- 20 UN A RY MINUS 



/3J31 S 24 SUBSCRIPT RT PARE 



689 DC /3131 RG 22 IMPLIED DO END 

690 DC CD10 

691 DC 
AQ9 Dr. BADST 

693 DC /3001 I/O 26 JNPUT/OUTPUT 

694 DC CD11 .... 
69<5 DC /3030 10 28 LIST 

696 DC CDX2 

697 DC 

698 DC CD9 

Q9 DC 



^700 DC CD13 

701 

702 DC CQ4 

703 



/3X01 DOA 2A IMPLIED DO 

CD9 

/3B01 ASF * c ARITH SimJ FUHC 

GDI 3 
DC /Q201 C 2E CALL 
Or CD4 
DC /3001 DIO 30 DISK I/O OPERATOR 

704 DC CD11 

705 * 

7H6 * CODE1 -/**■* 

7n7 rm DC OHTFC OUTPUT STRING SYMBOLS USJDE 

708 DC SUBl CONTROL QF SUBSTRING 1 

709 DC DELET DELETE 

' 7 Iq Dc -2 TWO SYMBOLS FROM STRING 

711 DC PLACE PLACE 

712 DC /8000 FAC ON STRING AT PTR-1 

713 DC ZEND END CODbl 

714 * 

715 * C0DE2 

716 CD2 DC MVPT MOVe STHING POINTER 

717 DC -1 BACK ONE 

713 DC DELET DELETE SYMBOL ON STRING AT 
71 9 DC "I POJNTEK m % 
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720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
*MQ 

742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 

^/60 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 



* 
* 
CD3 



* 
CD4 



* 

CD5 



• 
CD6 



* 
* 
CD7 



* 
CD8 



DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 

DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 



DC 
DC 
DC 



MVPT 

2 

DELET 

-1 
ZEND 



PUSH 
SUB2 
DELET 

-2 

ZEND 



OUTFC 
3UB1 

PTO 

DELET 

-2 

PLACE 
/8000 
ZEND 



OUT 
3UB2 
PTO 
DELET 

-1 
ZEND 



OUT 

SUB3 

DELET 

-2 

MVPT 

2 

OUT 

SUB2 
SU8SC 

MVPT 

DELET 

-3 

ZEND 



MOVE STKING POINTER 

UP 2 
DELETE SUMBOL ON STRING AT 

POJNTEK m 1 
END CQD§2 

C0DE3 , 

PUSH 0OWN STACK UNDER 

CONTROL OF SUBSTRING 2 
DELETE SYMBOL ON STRING AT 

POINTER »2 AND PTR-1 
END C0DE3 

OUTPUT STRING SYMBOLS U^DE 

CONTROL OF SUBSTRING 1 
STACK TO O/P UNTIL STOP CD 
DELETE SYMBOL ON STRING AT 
POINTER •! AND PTR-2 

PLACE 

FAC ON STRING AT pTR-1 
END CODt4 

CODES GOT 

OUTPUT STRING SYMBOLS UMDE 

CONTROL OF SUBSTRING 2 
STACK' TU O/P UNTIL STOP CD 
DELETE SYMBOL ON STRING AT 

POINTED »1 
END CQDE5 

C0DE6 12 3 

OUTPUT STRING SYMBOLS UMDE 

CONTROL OF SUBSTRING 3 
DELETE SYMBOL ON STRING 

PUINTEK p2 AND PTR-1 
MOVE STKING POINTER 

UP TWO 
OUTPUT STRING SYMBOLS 

CONTROL OF SUBSTRING 
OUTPUT SUBSCRIPT ELEMENTS 
MOVE 5THING POINTER 

UP ONE 
DELETE SYMBOL ON STRING AT 

P0INTEM-3* PTR-2, PTR*i; 
END C0DE6 



AT 



UNDE 
2 



OUTFC 
SUB3 

DELET 

PLACE 
,'8000 

ZEND 



OUTFC 

SUB3 

PTO 



C0DE7 U- 

OUTPUT STRING SYMBOLS UNDE 

CONTROL OF SUBSTRING 3 
DELETE SYMBOL ON STRING AT 

POjNTEK-j 

PLACE 

FAC ON STRING AT PTR-1 
END C0Dt7 



CODES JF 



OUTPUT STRING SYMBOLS 

CONTROL OF SUBSTRING 3 
STACK TO O/P UNTIL STOP 



USDE 



CD 



a 



SEIfE 



780 




DC 


781 




nc 


782 




DC 


783 


• 




784 


* 




785 


C09 


DC 


786 




DC 


787 




DC 


788 




DC 


789 




DC 


790 




DC 


791 




DC 


792 




DC 


793 




DC 


794 




DC 


795 


* 




796 


* 




797 


CD10 


;JC 


798 




DC 


799 




DC 


300 




DC 


801 




DC 


802 




DC 


803 




DC 


804 




DC 


805 




DC 


806 




DC 


807 




DC 


808 


+ 




809 


* 




810 


CD11 


DC 


811 




DC 


812 




DC 


813 




DC 


814 




DC 


815 




DC 


816 




DC 


817 




DC 


818 




DC 


319 




DC 


"820 


* 




821 


* 




822 


CD12 


DC 


823 




DC 


824 




DC 


825 




DC 


826 




DC 


827 




DC 


828 




DC 


829 


* 




830 


* 




831 


CD13 


DC 


832 




DC 


833 




DC 


834 




DC 


835 




DC 


836 




DC 


837 




DC 


838 




DC 


839 


* 





DELET DELETE SYMBOL ON STRING AT 

-j. POJNTEH • 1 

ZEND END C00|8 

CHJE9 DOA 

out output string symbols umde 

sub1 control pf substring 1 

push push pown stack under 

sub5 control of substring 5 

mvpt move sth'ing pointer 

i up one" 

DELET DELETE SYMBOLS ON STRING A 

-4 P-4. P"3# P*2t P-l 

STOPI PUSH DOWN STOP CODE 

ZEND END CQDE9 

CODE10 R6 

p L ACE PLACE IMPLIED DO TEST 

/4 A DOT ON STRING AT PTR-1 

OUT OUTPUT STRING SYMBOLS UNDE 

3JB2 CONTROL OF SUBSTRING TWO 

STOPD DELETE STOP CODE FROM STAC 

f'TO STACK Tu O/P UNTIL STOP CD 

ilVPT MOVE STHING POINTER 

1 UP ONE 

DELET DELETE SYMBOLS ON STRING A 

-3 PTR-3, PTR-2, PTR-l 

ZEND END CODfclO 

CQDEU I/O DJO 

OUT OUTPUT STRING SYMBOLS UNDE 

3UB3 CONTROL OF SUBSTRING 3 

PTO STACK TU Q/P UNTIL STOP CD 

DELET DELETE SYMBOLS ON STRING A 

-2 POINTEK »2, PTR-1 

MVPT MOVE STRING POINTER 

X UP ONE 

PLACE PLACE KO LIST OP ON STRJN 

/28 AT POINTER * 1 

ZEND END CQDfcli 

C0DE12 LjSl 

OUT OUTPUT STRING SYMBOLS UNDE 

SUB3 CONTROL OF SUBSTRING 3 

MVPT MOVE STKING POINTER 

1 UP ONE 

DELET DELETE SYMBOLS ON STRING A 

- 2 POJNTEM *2, PTR-l 

ZEND END CODfclZ 

CODE13 ASF 

OUT OUTPUT STRING SYMBOLS UNDE 

SUBl CONTROL OF SUBSTRING 1 

P T STACK TU p/P UNTIL STOP CD 

DELET DELETE SYMBOLS ON STRING A 

.2 POINTEK *2, PTR-1 

MVPT MOVE STKING POINTER 

1 UP ONE 

ZEND END C0Dti3 
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•840 


* 






SU3STRING 1 


841 


SUBl 


DC 


3 


LENGTH 


842 




DC 


-2 


P-2 


'843 




DC 


-3 


P-3 


844 




DC 


-1 


P-l 


845 


* 








846 


* 






SUBSTRING 2 


847 


SUB2 


DC 


i 


LENGTH 


848 




DC 


-1 


P-l 


849 


* 








850 


* 






SUBSTRING 3 


851 


SUB3 


DC 


2 


LENGTH 


852 




DC 


~2 


P-2 


853 




DC 


-1 


P-l 


854 


# 








855 


* 






SUBSTRING 5 


856 


SUB5 


DC 


1 


LENGTH 


857 




DC 


-3 


P-3 


858 


* 








859 




BS3 


OVERL- 


-•♦320*4 PH 


"60 




E'ND 


START 





•16 PATCH AREA 



